home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassManag.cpt / Graph / stack.txt < prev   
Text File  |  1992-06-18  |  4KB  |  120 lines
  1. -- stack: in
  2. -- format: 10 (HyperCard 2)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2706
  12. -- card count: 4
  13. -- first card id: 5022
  14. -- list block id: 2980
  15. -- print block id: 0
  16. -- font table block id: 5460
  17. -- style table block id: 5195
  18. -- free block count: 5
  19. -- free size: 7712 bytes
  20. -- total size: 16384 bytes
  21. -- stack block size: 4096 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x02108000
  24. -- modified by hypercard version: 0x02108000
  25. -- opened by hypercard version: 0x02108000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x65184E2A
  67. ----- HyperTalk script -----
  68. on openStack
  69.   set lockScreen to true
  70.   set lockMessages to true
  71.   set cursor to 4
  72.   domenu New Card
  73.   global nbr
  74.   global var
  75.   put 0 into itm
  76.   put 0 into hundrh
  77.   put 0 into ninh
  78.   put 0 into eigh
  79.   put 0 into sevh
  80.   put 0 into sixh
  81.   put 0 into fifh
  82.   put 0 into forh
  83.   put 0 into thirdh
  84.   put 0 into twenh
  85.   put 0 into tenh
  86.   put 0 into zeroh
  87.   repeat with counter = 1 to var
  88.     add 1 to itm
  89.     put word itm of nbr into test
  90.     if value of test > 99 and value of test < 120 then add 1 to hundrh
  91.     if value of test > 89 and value of test < 100 then add 1 to ninh
  92.     if value of test > 79 and value of test < 90 then add 1 to eigh
  93.     if value of test > 69 and value of test < 80 then add 1 to sevh
  94.     if value of test > 59 and value of test < 70 then add 1 to sixh
  95.     if value of test > 49 and value of test < 60 then add 1 to fifh
  96.     if value of test > 39 and value of test < 50 then add 1 to forh
  97.     if value of test > 29 and value of test < 40 then add 1 to thirdh
  98.     if value of test > 19 and value of test < 30 then add 1 to twenh
  99.     if value of test > 9 and value of test < 20 then add 1 to tenh
  100.     if value of test >= 0 and value of test < 10 then add 1 to zeroh
  101.   end repeat
  102.   set lockScreen to false
  103.   set lockMessages to false
  104.   choose line tool
  105.   set linesize to 4
  106.   if value of hundrh > 0 then drag from 90,40 to (90 + (value of hundrh * 10)),40
  107.   if value of ninh > 0 then drag from 90,65 to (90 + (value of ninh * 10)),65
  108.   if value of eigh > 0 then drag from 90,90 to (90 + (value of eigh * 10)),90
  109.   if value of sevh > 0 then drag from 90,115 to (90 + (value of sevh * 10)),115
  110.   if value of sixh > 0 then drag from 90,140 to (90 + (value of sixh * 10)),140
  111.   if value of fifh > 0 then drag from 90,165 to (90 + (value of fifh * 10)),165
  112.   if value of forh > 0 then drag from 90,190 to (90 + (value of forh * 10)),190
  113.   if value of thirdh > 0 then drag from 90,215 to (90 + (value of thirdh * 10)),215
  114.   if value of twenh > 0 then drag from 90,240 to (90 + (value of twenh * 10)),240
  115.   if value of tenh > 0 then drag from 90,265 to (90 + (value of tenh * 10)),265
  116.   if value of zeroh > 0 then drag from 90,290 to (90 + (value of zeroh * 10)),290
  117.   choose browse tool
  118. end openStack
  119.  
  120.